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(HI) - 



(1-2) - 



11. INPUT CHECKIN1. INPUT CHECKING PROGRAM (BEFORE TRANSFORMATION) 

FILE NAME : ZMIN.CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. INVENTORY-MASTER-CORRECTION- INPUT-CHECKING 

000003 ENVIRONMENT DIVISION. 

000004 INPUT-OUTPUT SECTION. 

000005 FILE-CONTROL. 

000006 SELECT Tl- INVENTORY-MASTER-CORRECT ION-FILE ASSIGN TO SYS010-UT-MT-S. 
000008 SELECT 01 -INVENTORY-MASTER-CORRECT ION-FILE ASSIGN TO SYS020-DA-DK-S. 

000010 DATA DIVISION. 

000011 FILE SECTION. 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 



FD 


Tl- 


I NYENTORY-MASTER-CORRECT I ON- 


-FILE. 


01 


Tl- 


I NVENTORY-MASTER-CORRECT I ON- 


-RECORD. 




05 


T 1 -PROCESS I NG-CATEGORY 


PIC X(l). 




05 


Tl -PRODUCT-CODE 


PIC X(6). 




05 


Tl -PRODUCT-NAME 


PIC X(30). 




05 


Tl -CURRENT- INVENTORY 


PIC 9(7). 




05 


T 1 -ALLOCATED-STOCK 


PIC 9(7). 




05 


Tl-POINT-OF-ORDERING 


PIC 9(7). 




05 


Tl -BASE- INVENTORY 


PIC 9(7). 




05 


Tl-SUPPLYER-CODE 


PIC X(5). 


FD 


01- 


I NVENTORY-MASTER-CORRECT I ON- 


FILE. 


01 


01- 


I NVENTORY-MASTER-CORRECT I ON- 


-RECORD. 




05 


0 1 -PROCES S I NG-CATEGORY 


PIC X(l). 




05 


01 -PRODUCT-CODE 


PIC X(6). 




05 


01 -PRODUCT-NAME 


PIC X(30). 




05 


01 -CURRENT- INVENTORY 


PIC 9(7). 




05 


01 -ALLOCATED-STOCK 


PIC 9(7). 




05 


0 1-PO I NT-OF -ORDERING 


PIC 9(7). 




05 


01 -BASE- INVENTORY 


PIC 9(7). 




05 


Ol-SUPPLYER-CODE 


PIC X(5). 



PROCEDURE DIVISION. 
MAIN PROCESS. 

OPEN INPUT T 1 - 1 NVENTORY-MAS TER-CORRECT I ON-F I LE 
OUTPUT 01 —I NVENTORY-MASTER-CORRECT I ON-F I LE. 
PERFORM I NVENTORY-MASTER-CORRECT I ON- I NPUT. 
PERFORM TRANSFORMAT I ON-CONTROL 
UNTIL (FILE-END-FLAG = ' D. 
CLOSE T 1 - I NVENTORY-MASTER-CORRECT I ON-F I LE 
0 1 - I NVENTORY-MASTER-CORRECT I ON-F I LE. 
STOP RUN. 

000046************************************ 0********************^ 

000047 TRANSFORMATION-CONTROL. 

000048 PERFORM TRANSFORMATION. 

000049 PERFORM I NVENTORY-MASTER-CORRECT I ON- I NPUT. 
000050********************************************************** 

000051 I NVENTORY-MASTER-CORRECT I ON- I NPUT. 

000052 READ Tl- INVENTORY-MASTER-CORRECTION-FILE 

000053 AT END MOVE ' 1" TO FILE-END-FLAG 

000054 END-READ. 

000055********************************************************** 
000056 TRANSFORMATION. 



(1-4) 



(1-5) - 



(1-6) - 



000057 
000058 
000059 
000060 
000061 
000062 
000063 



IF 



IS NUMERIC) 
IS NUMERIC) 



AND 



(Tl -CURRENT- INVENTORY 
(Tl -ALLOCATED-STOCK 
THEN 

MOVE T 1 - I NVENTORY-MASTER-CORRECT I ON-RECORD 
TO 0 1 - I NVENTORY-MASTER-CORRECT I ON-RECORD 
PERFORM CHECKEDI NVENTORY-MASTER-CORRECT I ON-OUTPUT 

END- IF. 

000064********************************************************** 

000065 CHECKED I NYENTORY-MASTER-CORRECT I ON OUTPUT. 

000066 WRITE Ol-I NVENTORY-MASTER-CORRECT I ON-RECORD. 

000067 END PROGRAM INVENTORY-MASTER-CORRECTION- INPUT-CHECKING 



(1-7) - 



Jci-8) - 
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J- (I'D 

j i (2-0 - 



(i-i) 



5. INTERFACE CLASS (INTERMEDIATE PROGRAM) 

FILE NAME : ZMUI.CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. INVENTORY-MASTER-CORRECT I ON-U I INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 

000007 CLASS INVENTORY-MASTER-CORRECTION-FILE IS * ZMFL' . 

000008 IDENTIFICATION DIVISION. 

000009 CLASS-OBJECT. 

000010 DATA DIVISION. 

000011********************************************************************* 
000012* CLASS VARIABLE 

000013********************************************************************* 

000014 WORKING-STORAGE SECTION. 

000015 01 T 1 - I NVENTORY-MASTER-CORRECT I ON-RECORD. T«- (1"2) 

(2-2) - 



r 



000016 


05 


Tl 


-PROCESSING-CATEGORY 


PIC X(l). 


000017 


05 


Tl 


-PRODUCT-CODE 


PIC X(6). 


000018 


05 


Tl 


-PRODUCT-NAME 


PIC X(30). 


000019 


05 


Tl 


-CURRENT- INVENTORY 


PIC 9(7). 


000020 


05 


Tl 


-ALLOCATED-STOCK 


PIC 9(7). 


000021 


05 


Tl 


-PO I NT-OF-ORDER I NG 


PIC 9(7). 


000022 


05 


Tl 


-BASE- INVENTORY 


PIC 9(7). 


000023 


05 


Tl 


-SUPPLYER-CODE 


PIC X(5). 



000024 01 END-FLAG PIC X(l). 

000025 PROCEDURE DIVISION. 

000026********************************************************************* 
000027* CLASS METHOD 

000028********************************************************************* 

000029 IDENTIFICATION DIVISION. 

000030 METHOD- ID. ' displayScreen' . 

000031********************************************************************* 

000032 DATA DIVISION. 

000033 SCREEN SECTION. 

000034 01 INVENTORY-MASTER-DETAIL. 

(1-25) 



(2-3) 



000035 


05 


LINE 


3 


COLUMN 


10 


000036 


05 


LINE 


3 


COLUMN 


24 


000037 


05 


LINE 


4 


COLUMN 


10 


000038 


05 


LINE 


4 


COLUMN 


24 


000039 


05 


LINE 


5 


COLUMN 


10 


000040 


05 


LINE 


5 


COLUMN 


24 


000041 


05 


LINE 


6 


COLUMN 


10 


000042 


05 


LINE 


6 


COLUMN 


24 


000043 


05 


LINE 


7 


COLUMN 


10 


000044 


05 


LINE 


7 


COLUMN 


24 


000045 


05 


LINE 


8 


COLUMN 


10 


000046 


05 


LINE 


8 


COLUMN 


24 


000047 


05 


LINE 


9 


COLUMN 


10 


000048 


05 


LINE 


9 


COLUMN 


24 


000049 


05 


LINE 


10 


COLUMN 


10 


000050 


05 


LINE 


10 


COLUMN 


24 


000051 


05 


LINE 


11 


COLUMN 


40 


000052 


05 


LINE 


11 


COLUMN 


24 



POINT OF ORDERING 



"END 



000053 PROCEDURE DIVISION. 

000054 DISPLAY INVENTORY-MASTER-DETAIL. 

000055 ACCEPT INVENTORY-MASTER-DETAIL. 

000056 EXIT METHOD. 

000057 END METHOD. ' displayScreeiT . 
000058 
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(5. INTERFACE CLASS —CONTINUED) 



000059********************************************************************* 

000060 IDENTIFICATION DIVISION. 

000061 METHOD-ID. 'uiMain'. 

000062********************************************************************* 

000063 PROCEDURE DIVISION. 

000064 PERFORM UNTIL (END FLAG = ' I') 

000065 INVOKE SELF ' d i sp 1 ayScr een" 

000066 INVOKE SELF ' changeModel' 

000067 END-PERFORM. 

000068 EXIT METHOD. 

000069 END METHOD 'uiMain*. 
000070 

000071********************************************************************* 

000072 IDENTIFICATION DIVISION. 

000073 METHOD-ID. 'changeModel*. 

000074********************************************************************* 

000075 PROCEDURE DIVISION. 

000076 MAIN-PROCESS. 

000077 PERFORM INVENTORY-MASTER-CORRECTION-INPUT. 

000078 PERFORM TRANSFORMATION-CONTROL 

000079 EXIT METHOD. 

000080********************************************************** 

000081 TRANSFORMATION-CONTROL. 

000082 PERFORM TRANSFORMATION. 

000083********************************************************** 

000084 INVENTORY-MASTER-CORRECTION-INPUT. 

000085 CONTINUE. 

000086********************************************************** 
000087 TRANSFORMATION. 



(2-4) - 



- (1-4) 
(2-5) ^ 



T«- (1-5) 
1 (2-6) - 

T+- (l- 

| (2-7) 



000088 IF (Tl-CURRENT-INVENTORY IS NUMERIC) AND 

000089 (Tl-AUOCATED-STOCK IS NUMERIC) 

000090 THEN 

000091 PERFORM (BECKED-INVENTORY-MASTER-CORRECTION-OUTPUT 

000092 END-IF. 

000093********************************************************** 

000094 CHECKED I NVENTORY-MASTER-CORRECT I ON-OUTPUT. 

000095 INVOKE INVENTORY-MASTER-FILE 'updateRecord' 

000096 USING Tl -INVENTORY-MASTER-CORRECTION-RECORD 

000097 END-INVOKE. 

000098 END METHOD 'changeModel'. 

000099 END CLASS-OBIECT. 

000100 END CLASS INVENTORY-MASTER-CORRECTION-UI . J- (1-1) 



(1-7) 



(2-8) 



- (1-8) 
(2-9) -h 
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4. RESULT OUTPUT PROGRAM 

FILE NAME : ZMOT. CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. INVENTORY-MASTER-CORRECT I ON -RESULT-OUTPUT. 

000003 ENVIRONMENT DIVISION. 

000004 INPUT-OUTPUT SECTION. 

000005 FILE-CONTROL. 



000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 01 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 



SELECT Tl- INVENTORY-MASTER-FILE 
ASSIGN TO SYS010-DA-DK-S. 
SELECT 01 -OUTPUT-FILE 

ASSIGN TO SYS020-UR-LP-S. 
DATA DIVISION. 
FILE SECTION. 

FD Tl -INVENTORY-MASTER-FILE BLOCK CONTAINS 35 RECORDS. 
T 1 - I NVENTORY-MASTER-RECORD. 



01 



05 Tl -PRODUCT-CODE PIC X(6). 

05 Tl -PRODUCT-NAME PIC X(30). 

05 Tl -CURRENT- INVENTORY PIC 9(7). 
05 T 1 -ALLOCATED- STOCK PIC 9(7). 

05 Tl-POINT-OF-ORDERING PIC 9(7). 
05 Tl -BASE-INVENTORY PIC 9(7). 

05 Tl-SUPPLYER-CODE PIC X(5). 

FD 01 -OUTPUT-FILE LABEL RECORD OMITTED 

REPORT IS INVENTORY-MASTER-LIST. 

000023 WORKING-STORAGE SECTION. 

000024 01 FILE-END-FLAG PIC X VALUE '0'. 

000025 01 W-DATE PIC X(8). 
REPORT SECTION. 

RD INVENTORY-MASTER-LIST CONTROLS ARE Tl -PRODUCT-CODE 
PAGE LIMITS 66 LINES 
HEADING 1 
FIRST DETAIL 7 
LAST DETAIL 56 
FOOTING 66. 
INVENTORY-MASTER-DETAIL TYPE IS DETAIL. 
05 LINE NUMBER IS 4. 
10 COLUMN 10 PIC 
10 COLUMN 22 PIC 
05 LINE NUMBER IS 5. 
10 COLUMN 10 PIC 
10 COLUMN 18 PIC 
05 LINE NUMBER IS 6. 
10 COLUMN 10 PIC 
10 COLUMN 20 PIC 
05 LINE NUMBER IS 7. 
10 COLUMN 10 PIC 
10 COLUMN 18 PIC 
05 LINE NUMBER IS 8. 
10 COLUMN 10 PIC 
10 COLUMN 18 PIC 
05 LINE NUMBER IS 9. 
10 COLUMN 10 PIC 
10 COLUMN 22 PIC 
05 LINE NUMBER IS 10. 
10 COLUMN 10 1 
10 COLUMN 24 1 
TYPE IS PAGE HEADING. 
05 LINE NUMBER IS 2. 

10 COLUMN 41 PIC X(18) VALUE ' *** INVENTORY MASTER' 
10 COLUMN 60 PIC X(16) VALUE 'SLIP ***' . 
10 COLUMN 95 PIC X(8) SOURCE W-DATE. 
TYPE IS CONTROL FOOTING Tl -PRODUCT-CODE 
NEXT GROUP NEXT PAGE. 



000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 01 
000056 
000057 
000058 
000059 
000060 01 
000061 



X(12) 


VALUE 


X(6) 


SOURCE 


X(8) 


VALUE 


X(30) 


SOURCE 


X(10) 


VALUE 


9(7) 


SOURCE 


X(8) 


VALUE 


9(7) 


SOURCE 


X(8) 


VALUE 


9(7) 


SOURCE 


X(12) 


VALUE 


9(7) 


SOURCE 


X(14) 


VALUE 


X(5) 


SOURCE 



'PRODUCT CODE: ' 
Tl -PRODUCT-CODE. 

'PRODUCT NAME: ' 



'CURRENT INVENTORY: ' 
T 1 -CURRENT- I NVENTORY . 

'ALLOCATED STOCK: '. 



POINT OF ORDERING: 



'BASE INVENTORY: 



SUPPLYER CODE: '. 
fl-SUPPLYER-CODE. 
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(4. RESULT OUTPUHING PROGRAM —CONTINUED) 

000062 PROCEDURE DIVISION. 

000063 MAIN PROCESS. 

000064 OPEN INPUT T 1 - I NVENTORY-MASTER-F I LE 

000065 OUTPUT 01 -OUTPUT-FILE. 

000066 MOVE CURRENT-DATE TO W-DATE. 

000067 INITIATE INVENTORY-MASTER-LIST. 

000068 PERFORM INVENTORY-MASTER-FILE-INPUT. 

000069 PERFORM REPORTING-CONTROL 

000070 UNTIL (FILE-END-FLAG = T). 

000071 TERMINATE INVENTORY-MASTER-LIST. 

000072 CLOSE T 1 - I NVENTORY-MASTER-F I LE 

000073 Ol-OUTPUT-FILE. 

000074 STOP RUN. 

000075********************************************************* 

000076 REPORTING CONTROL. 

000077 GENERATE INVENTORY-MASTER-DETAIL. 

000078 PERFORM INVENTORY-MASTER-FILE-INPUT. 
000079********************************************************* 

000080 INVENTORY-MASTER-FILE-INPUT. 

000081 READ Tl-INVENTORY-MASTER-FILE 

000082 AT END MOVE ' 1' TO FILE-END-FLAG 

000083 END-READ. 

000084 END PROGRAM INVENTORY-MASTER-CORRECT I ON -RESULT-OUTPUT. 
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3. MATCHING AND UPDATING PROGRAM (BEFORE TRANSFORMATION) 

PROGRAM NAME : ZMUP. CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. I NVENTORY-MASTER-CORRECT I ON —MATCH I NG-AND-UPDAT I NG. 

000003 ENVIRONMENT DIVISION. 

000004 INPUT-OUTPUT SECTION. 

000005 FILE-CONTROL. 

000006 SELECT T 1 - I NVENTORY-MASTER-CORRECT I ON-F I LE 

000007 ASSIGN TO SYS010-DA-DK-S 

000008 ORGANIZATION LINE SEQUENTIAL. 

000009 SELECT Ml-INVENTORY-MASTER-FILE 

000010 ASSIGN TO SYS030-DA-DK-S 

000011 ORGANIZATION LINE SEQUENTIAL. 

000012 SELECT M2- 1 NVENTORY-MASTER-F I LE 

000013 ASSIGN TO SYS031-DADK-S 

000014 ORGANIZATION LINE SEQUENTIAL. 

000015 DATA DIVISION. 

000016 FILE SECTION. 



1° 



-10) 



I 



(1-11) - 



000017 


FD 


Tl- 


- 1 NVENTORY-MASTER-CORRECT I ON-F I LE. 


000018 


01 


Tl- 


I NVENTORY-MASTER-CORRECT I ON-RECORD. 


000019 




05 


T1-PROCESSING-CATEG0RY 


PIC X(l). 


000020 






88 Tl-ADD VALUE 'l\ 




000021 






88 Tl -UPDATE VALUE ' 2' . 




000022 






88 Tl -DELETE VALUE ' 9' . 




000023 




05 


Tl-PRODUCT-CODE 


PIC X(6). 


000024 




05 


T 1 -PRODUCT-NAME 


PIC X(30). 


000025 




05 


T 1 -CURRENT- I NVENTORY 


PIC 9(7). 


000026 




05 


Tl-ALLOCATED-STOCK 


PIC 9(7). 


000027 




05 


Tl-POINT-OF-ORDERING 


PIC 9(7). 


000028 




05 


T 1 -BASE- I NVENTORY 


PIC 9(7). 


000029 




05 


Tl-SUPPLYER-CODE 


PIC X(5). 


000030 


FD 


Ml- 


•INVENTORY-MASTER-FILE. 




000031 


01 


Ml- 


-INVENTORY-MASTER-RECORD. 




000032 




05 


MI-PRODUCT-CODE 


PIC X(6). 


000033 




05 


MI-PRODUCT-NAME 


PIC X(30). 


000034 




05 


MI-CURRENT-INVENTORY 


PIC 9(7). 


000035 




05 


M 1 -ALLOCATED-STOCK 


PIC 9(7). 


000036 




05 


Ml-POINT-OF-ORDERING 


PIC 9(7). 


000037 




05 


MI-BASE-INVENTORY 


PIC 9(7). 


000038 




05 


Ml-SUPPLYER-CODE 


PIC X(5). 


000039 


FD 


M2- 


- 1 NVENTORY-MASTER-F I LE. 




000040 


01 


M2- 


-I NVENTORY-MASTER-RECORD. 




000041 




05 


M2-PRODUCT-CODE 


PIC X(6). 


000042 




05 


M2-PRODUCT-NAME 


PIC X(30). 


000043 




05 


M2-CURRENT-INVENT0RY 


PIC 9(7). 


000044 




05 


M2-ALL0CATED-ST0CK 


PIC 9(7). 


000045 




05 


M2-PO I NT-OF-ORDER I NG 


PIC 9(7). 


000046 




05 


M2-BASE- I NVENTORY 


PIC 9(7). 


000047 




05 


M2-SUPPLYER-C0DE 


PIC X(5). 
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(3. MATCHING AND UPDATING PROGRAM —CONTINUED (1)) 
000048 

000049 WORKING-STORAGE SECTION. 

000050 01 WORKING AREA. 

000051 05 W-TRANSACT I ON-KEY PIC X(6) VALUE LOW-VALUE. 

000052 05 W-MASTER-KEY PIC X(6). 

000053 01 FLAG. 

000054 05 FILE-END-FLAG 1 PIC X VALUE ' 0' . 

000055 05 FILE-END-FLAG 2 PIC X VALUE '0'. 

000056 05 PROCESS-END-FLAG PIC X VALUE ' 0' . 
000057 

000058 PROCEDURE DIVISION. 

000059 MAIN PROCESS. 

000060 OPEN INPUT Tl-INVENTORY-MASTER-CORRECTION-FILE 

000061 Ml-INVENTORY-MASTER-FILE 

000062 OUTPUT M2-INVENTORY-MASTER-FILE. 

000063 PERFORM I NVENTORY-MASTER-CORRECT I ON- INPUT. 

000064 PERFORM OLD-INVENTORY-MASTER-INPUT. 

000065 PERFORM UPDATE-CONTROL 

000066 UNTIL (PROCESS-END-FLAG = '1'). 

000067 CLOSE Tl - I NVENTORY-MASTER-CORRECT I ON-F I LE 

000068 Ml-INVENTORY-MASTER-FILE 

000069 M2-INVENTORY-MASTER-F ILE. 

000070 STOP RUN. 

000071************************************************************ 

000072 UPDATE-CONTROL. 



(1-15) 



000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 



IF 



W-MASTER-KEY) 



(1-16) 



(W-TRANSACTION-KEY 
THEN 

PERFORM MATCHING-PROCESS 
ELSE 

IF (W-TRANSACTION-KEY > W-MASTER-KEY) 
THEN 

PERFORM MASTER-PROCESS 

ELSE 

PERFORM TRANSACTION-PROCESS 

END-IF 

END-IF. 

000084***********************************************************'* 

000085 MATCHING-PROCESS. 

000086 IF (W-TRANSACTION-KEY = HIGH-VALUE) 

000087 THEN 

000088 MOVE ' 1* TO PROCESS-END-FLAG 

000089 ELSE 

000090 EVALUATE Tl-PROCESSING-CATEGORY 

000091 WHEN Tl-UPDATE 

000092 PERFORM UPDATE-PROCESS 

000093 PERFORM NEW-INVENTORY-MASTER-OUTPUT 

000094 PERFORM OLD-INVENTORY-MASTER-INPUT 

000095 WHEN Tl -DELETE 

000096 PERFORM DELETE-PROCESS 

000097 END-EVALUATE 

000098 PERFORM INVENTORY-MASTER-CORRECTION- INPUT-CHECKING 

000099 END-IF. 

000100************************************************************ 



(1- 
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(3. MATCHING AND UPDATING PROGRAM — CONTINUED (2)) 

000101 MASTER-PROCESS. 

000102 MOVE Ml -INVENTORY-MASTER-RECORD 

000103 TO M2- INVENTORY-MASTER-RECORD. 

000104 PERFORM NEW- INVENTORY-MASTER-OUTPUT. 

000 1 05 PERFORM OLD- I NVENTORY-MASTER- I NPUT. 

0001 06*************************************************** ****************** 

000107 TRANSACTION-PROCESS. 

000108 IF Tl-ADD 

000109 THEN 

000110 PERFORM ADD-PROCESS 

0001 1 1 PERFORM NEW- INVENTORY-MASTER-OUTPUT. 

000112 END- IF. 

000113 PERFORM INVENTORY-MASTER-CORRECT I ON- I NPUT. 
000114********************************************************************* 
000115 UPDATE-PROCESS. 



000116 MOVE Tl -PRODUCT-NAME 

000117 MOVE T 1 -CURRENT- I NVENTORY 

000118 MOVE Tl-ALLOCATED-STOCK 

000119 MOVE T1-P01NT-OF-ORDERING 

000120 MOVE Tl -BASE- I NVENTORY 

000121 MOVE Tl-SUPPLYER-CODE 



TO M2-PRODUCT-NAME. 
TO M2-CURRENT- 1 NVENTORY. 
TO M2-ALLOCATED-STOCK. 
TO M2-P01 NT-OF-ORDERI NG. 
TO M2 -BASE- I NVENTORY . 
TO M2-SUPPLYER-CODE. 



000122******************************************************************"* 

000123 ADD-PROCESS. 



000124 MOVE Tl -PRODUCT-CODE 

000125 MOVE Tl -PRODUCT-NAME 

000126 MOVE Tl -CURRENT- I NVENTORY 

000127 MOVE Tl-ALLOCATED-STOCK 

000128 MOVE Tl-PO I NT-OF-ORDERI NG 

000129 MOVE Tl -BASE- INVENTORY 

000130 MOVE Tl-SUPPLYER-CODE 



TO M2-PRODUCT-CODE. 
TO M2-PR0DUCT-NAME. 
TO M2-CURRENT- I NVENTORY. 
TO M2-ALL0CATED-ST0CK. 
TO M2-P0 1 NT-OF-ORDER I NG . 
TO M2-BASE- I NVENTORY. 
TO M2-SUPPLYER-CODE. 



(1-18) 



(1-19) 



(1-20) 



000131********************************************************************* 

000132 NEW- I NVENTORY-MASTER-OUTPUT. 

000133 WRITE M2- INVENTORY-MASTER-RECORD 

000134 INVALID MOVE * f TO PROCESS-END-FLAG. 
000135********************************************************************* 

000136 DELETE-PROCESS. 

000137 PERFORM OLD- I NVENTORY-MASTER- I NPUT. 
000138********************************************************************* 

000139 I NVENTORY -MASTER-CORRECT I ON- I NPUT. 

000140 READ Tl- INVENTORY-MASTER-CORRECTION-FILE 

000141 AT END MOVE ' f TO FILE-END-FLAG 1 

000142 END-READ. 

000143 IF (FILE-END-FLAG 1 = '1') 

000144 THEN 

000145 MOVE HIGH-VALUE TO W-TRANSACT I ON-KEY 

000146 ELSE 

000147 MOVE Tl -PRODUCT-CODE 

000148 TO W-TRANSACT I ON-KEY 

000149 END- IF. 

000150********************************************************************* 

000151 OLD- I NVENTORY-MASTER- INPUT. 

000152 READ Ml -INVENTORY-MASTER-FILE 

000153 AT END MOVE T TO FILE-END-FLAG 2 

000154 END-READ. 

000155 IF (FILE-END-FLAG 2 = ' f ) 

000156 THEN 

000157 MOVE HIGH-VALUE TO W-MASTER-KEY 

000158 ELSE 

000159 MOVE Ml -PRODUCT-CODE TO W-MASTER-KEY 

000160 END-IF. 

000161 END PROGRAM INVENTORY-MASTER-CORRECT I ON -MATCH I NG-AND-UPDAT I NG. 



(1-21) 

(1-22) 
(1-23) 



(1-24) 
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2. SORT PROGRAM (BEFORE TRANSFORMATION) 

FILE NAME : ZMSR.CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. INVENTORY-MASTER-CORRECTION-SORT. 

000003 ENVIRONMENT DIVISION. 

000004 INPUT-OUTPUT SECTION. 

000005 FILE-CONTROL. 



000006 SELECT T 1 - I NVENTORY-MASTER-CORRECT I ON-F I LE 

000007 ASSIGN TO SYS010-UT-MT-S. 

000008 SELECT 0 1 - I NVENTORY-MASTER-CORRECT I ON-F I LE 

000009 ASSIGN TO SYS020-DA-DK-S. 

000010 SELECT SI -INTERMEDIATE-FILE 

000011 ASSIGN TO WORK001. 



000012 DATA DIVISION. 

000013 FILE SECTION. 

000014 FD T 1 - I NVENTORY-MASTER-CORRECT I ON-F I LE. 

000015 01 PIC X(70) 

000016 FD 01 -INVENTORY-MASTER-CORRECTION-FILE. 

000017 01 PIC X(70). 

000018 SD S 1 - 1 NTERMED I ATE-F I LE . 

000019 01 S 1 - I NTERMED I ATE-F I LE-RECORD. 



000020 05 SI-PROCESSING-CATEGORY PIC X(l). 

000021 05 SI -PRODUCT-CODE PIC X(6). 

000022 05 SI -PRODUCT-NAME PIC X(30). 

000023 05 SI -CURRENT- INVENTORY PIC 9(7). 

000024 05 Sl-ALLOCATED-STOCK PIC 9(7). 

000025 05 Sl-POINT-OF-ORDERING PIC 9(7). 

000026 05 SI -BASE- INVENTORY PIC 9(7). 

000027 05 Sl-SUPPLYER-CODE PIC X(5). 

000028 PROCEDURE DIVISION. 

000029 SORT INTERMEDIATE-FILE T (1-9) 

000030 ON ASCENDING KEY S 1 -PRODUCT-CODE I 

000031 USING T 1 - I NVENTORY-MASTER-CORRECT I ON-F I LE 

000032 GIVING 01 -INVENTORY-MASTER-CORRECT ION-FILE. 

000033 STOP RUN. 

000034 END PROGRAM INVENTORY-MASTER-CORRECTION-SORT. 
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6. FILE CLASS (INTERMEDIATE PROGRAM) 

FILE NAME : ZMFL. CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. INVENTORY-MASTER-CORRECTION-FILE INHERITS CBL-BASE 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. . 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 

000007 INPUT-OUTPUT SECTION. 

000008 FILE-CONTROL. 

000009 SELECT Ml -INVENTORY-MASTER-FILE T«- (1-11) 

000010 ASSIGN TO SYS030-DA-DK-I «- (1-9) 

000011 ORGANIZATION INDEXED 

000012 ACCESS RANDOM (2-11) 

000013 RECORD KEY Ml -PRODUCT-CODE. 
000014 

000015 IDENTIFICATION DIVISION. 

000016 CLASS-OBJECT. 

000017 DATA DIVISION. 

000018********************************************************************* 

000019* CLASS VARIABLE 

000020********************************************************************* 
000021 FILE SECTION. 



(1-10) 
(2-10) - 



000022 FD 

000023 01 



M 1 - I NVENTORY-MASTER-F I LE . 
M 1 - I NVENTORY-MASTER-RECORD. 



000024 


05 


Ml 


-PRODUCT-CODE 


PIC X(6). 


000025 


05 


Ml 


-PRODUCT-NAME 


PIC X(30). 


000026 


05 


Ml 


-CURRENT- INVENTORY 


PIC S9(7). 


000027 


05 


Ml 


-ALLOCATED-STOCK 


PIC S9(7). 


000028 


05 


Ml 


-PO I NT-OF-ORDER I NG 


PIC S9(7). 


000029 


05 


Ml 


-BASE- INVENTORY 


PIC S9(7). 


000030 


05 


Ml 


-SUPPLYER-CODE 


PIC X(5). 



- (1-13) 
(2-12) — 



000031 

000032 PROCEDURE DIVISION. 

000033********************************************************************* 
000034* CLASS METHOD 

000035********************************************************************* 

000036 IDENTIFICATION DIVISION. 

000037 METHOD-ID. * updateRecord*. 

000038********************************************************************* 

000039 DATA DIVISION. 

000040 LINKAGE SECTION. 

000041 01 T 1 - I NVENTORY-MASTER-CORRECT I ON-RECORD. 



000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 



05 



05 
05 
05 
05 
05 
05 
05 



Tl-PROCESSING-CATEGORY 

88 T 1 -ADD VALUE ' 1\ 

88 Tl -UPDATE VALUE ' 2' . 

88 Tl -DELETE VALUE '9*. 

Tl -PRODUCT-CODE 

Tl -PRODUCT-NAME 

Tl -CURRENT- INVENTORY 

Tl -ALLOCATED-STOCK 

Tl-POINT-OF-ORDERING 

T I -BASE- INVENTORY 

T I -SUPPLYER-CODE 



PIC X(0. 



PIC X(6). 

PIC X(30). 

PIC 9(7). 

PIC 9(7). 

PIC 9(7). 

PIC 9(7). 

PIC X(5). 



000053 

000054 WORKING-STORAGE SECTION. 

000055 01 WORKING AREA. 
05 W-TRANSACT ION-KEY PIC X(6) VALUE LOW-VALUE. 
05 W-MASTER-KEY PIC X(6). 
FLAG. 

05 FILE-END-FLAG1 PIC X VALUE * 0' . 
05 FILE-END-FLAG2 PIC X VALUE '0'. 
05 PROCESS-END-FLAG PIC X VALUE 



(1~12) 
(2-13) — 



000056 
000057 
000058 01 
000059 
000060 
000061 
000062 

000063 PROCEDURE DIVISION USING Tl- INVENTORY-MASTER-CORRECTION-RECORD. * 

000064 MAIN PROCESS. L 



'0' 



(1-14) 



000065 OPEN 1-0 Ml - I NYENTORY-MASTER-F I LE. 

000066 PERFORM I NVENTORY-MASTER-CORRECT I ON- INPUT. 

000067 PERFORM OLD-INVENTORY-MASTER-INPUT. 

000068 PERFORM UPDATE-CONTROL. 

000069 CLOSE M 1 - I NVENTORY-MASTER-F I LE. 

000070 EXIT METHOD. 



(1-12) 
15) 



- (1 



(2-14) 
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(6. FILE CLASS — CONTINUED) 

000071 *********** ****************** ** ********* **************** ******* ****** 

000072 UPDATE-CONTROL. J<- (1-16) 

000073 IF (W-TRANSACT I ON-KEY = W-MASTER-KEY) 

000074 THEN 

000075 PERFORM MATCHING 

000076 ELSE 

000077 PERFORM TRANSACTION 

000078 END- IF. 

000079**************** ************************************************ *_**♦* 
000080 MATCHING. 



(2-14 

-CONTINUED) 



000081 IF (W-TRANSACT I ON-KEY = HIGH-VALUE) 

000082 THEN 

000083 MOVE ' I* TO PROCESS-END-FLAG 

000084 ELSE 

000085 EVALUATE Tl -PROCESS ING-CATEGORY 

000086 WHEN Tl -UPDATE 

000087 PERFORM UPDATE-PROCESS 

000088 PERFORM NEW- INVENTORY-MASTER-OUTPUT 

000089 WHEN Tl-DELETE 

000090 PERFORM DELETE-PROCESS 

000091 END-EVALUATE 

000092 END-IF. 

000093** ********************************************************* ********** 

000094 TRANSACTION. J— (1-18) 

000095 IF Tl -ADD 

000096 THEN 

000097 PERFORM ADD-PROCESS 

000098 PERFORM ADDNEW- INVENTORY-MASTER-OUTPUT. 

000099 END-IF. 

000100********************************************************************* 



(1-17) 



000101 UPDATE-PROCESS. 

000102 MOVE Tl -PRODUCT-NAME 

000103 MOVE Tl -CURRENT- INVENTORY 

000104 MOVE TI-ALLOCATED-STOCK 

000105 MOVE TI-POINT-OF-ORDERING 

000106 MOVE T I -BASE- INVENTORY 

000107 MOVE Tl-SUPPLYER-CODE 



TO Ml -PRODUCT-NAME. 
TO Ml -CURRENT- INVENTORY. 
TO Ml -ALLOCATED-STOCK. 
TO MI-POINT-OF-ORDERING. 
TO MI-BASE-INVENTORY. 
TO M1-SUPPLYER-C0DE. 



(1-19) 



000108********************************************************************* 
000109 ADD-PROCESS. 



000110 


MOVE 


Tl 


-PRODUCT-CODE 


TO Ml 


-PRODUCT-CODE. 


000 1 1 1 


MOVE 


Tl 


-PRODUCT-NAME 


TO Ml 


-PRODUCT-NAME. 


000112 


HOVE 


Tl 


-CURRENT-INVENTORY 


TO Ml 


-CURRENT- INVENTORY. 


000113 


MOVE 


Tl 


-ALLOCATED-STOCK 


TO Ml 


-ALLOCATED-STOCK. 


000114 


MOVE 


Tl 


-P0 I NT-OF-ORDER I NG 


TO Ml 


-POI NT-OF-ORDER I NG. 


000115 


MOVE 


Tl 


-BASE-INVENTORY 


TO Ml 


-BASE- INVENTORY. 


000116 


MOVE 


Tl 


-SUPPLYER-CODE 


TO MI 


-SUPPLYER-CODE. 



(1-20) 



000117********************************************* ************************ 

0001 18 ADD-NEW-INVENTORY-MASTER-OUTPUT. 

0001 19 WRITE Ml -INVENTORY-MASTER-RECORD 

000120 INVALID MOVE * I* TO PROCESS-END-FLAG. 

0001 2 1 **************************************************** ***************** 

000122 NEW- I NVENTORY -MASTER-OUTPUT. 

000123 REWRITE Ml- INVENTORY-MASTER-RECORD 

000124 INVALID MOVE T TO PROCESS-END-FLAG 

000125********************************************************************* 

000126 DELETE-PROCESS. 

000127 DELETE Ml -INVENTORY-MASTER-RECORD 

000128 INVALID MOVE ' I* TO PROCESS-END-FLAG. 

000129***************************************************************** 

000130 INVENTORY-MASTER-CORRECTION-INPUT. 

000131 MOYE Tl -PRODUCT-CODE 

000132 TO W-TRANSACT I ON-KEY Ml -PRODUCT-CODE 

000133******************************************************************4** 

000134 OLD- I NVENTORY-MASTER- I NPUT. 

000135 READ HI -1 NVENTORY-MASTER-F ILE 

000136 INVALID MOVE I* TO FILE-END-FLAG 2 . 

000137 IF (FILE-END-FLAG 2 • T> 

000138 THEN 

000139 MOVE HIGH-VALUE TO W-MASTER-KEY 

000140 ELSE 

000141 MOVE Ml -PRODUCT-CODE TO W-MASTER-KEY 

000142 END-IF. 

000143 END METHOD ' opdateRecord* . 

000144 END CLASS-OBJECT. 

000145 END CLASS INVENTORY-MASTER-CORRECTION-FILE. 



**** 

r 

>*** 

r 

**** 

r 



(1-21) 



(1-21) 



(1- 
(t- 



22) 
23) 



V- (1-24) 



r 



(1-10) 
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210 : INTERFACE CLASS 



310 : VIEW CLASS 



IDENTIFICATION DIVISION 



CLASS NAMEf 



(2-1) 



CLASS OBJECT AREA 
DATA DIVIS ION 

TRANSACTION RECORD ||END FLAG 4 k* 



PROCEDURE DIVISION 



METHOD 'displayScreer^ 


DATA DIVISION 




i i i i i i i 
-SCREEN 






^DEFINITION - 






■ i i i i i i 









METHOD 'uiMain' 



METHOD 'changeModel' 
P ROCEDURE DIVIS ION 
[MAIN PROCESS" 

| TRANSFORMATION CONTROL^ 



TRANSACTION INPUT 



INSTANCE AREA 
j NONE 

FOOTING OF CLASS END 



IDENTIFCATION DIVISION 



* CLASS NAME 



ENVIRONMENT DIVISION 



[REPOSITORY INDICATION TO CONTROLLER CLASS | 




FOOTING OF CLASS END 
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7. VIEW CLASS (FINAL PROGRAM) 

FILE NAME : ZMVI.CBL 

000001 IDENTIFICATION DIVISION. 



000002 CLASS-ID. INVENTORY-MASTER-CORRECT I ON-view INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 



000007 CLASS I NVENTORY-MASTER-CORRECT I ON-c on trol Ier IS ' ZMCN' . 1 
000008 

000009 IDENTIFICATION DIVISION. 

000010 CLASS-OBJECT. 

000011 PROCEDURE DIVISION. 

000012********************************************************************* 
000013* CLASS METHOD 

000014********************************************************************* 

000015 IDENTIFICATION DIVISION. 

000016 METHOD-ID. ' create' . 

000017********************************************************************* 

000018 DATA DIVISION. 

000019 WORKING-STORAGE SECTION. 

000020 01 W- I NVENTORY-MASTER-CORRECT I ON-view OBJECT REFERENCE SELF. 

000021 PROCEDURE DIVISION. 

000022 INVOKE SELF ' CBL-NEW' 

000023 RETURNING W- 1 NVENTORY-MASTER-CORRECT I ON-v i ew. 

000024 INVOKE INVENTORY-MASTER-CORRECTION-con t ro 1 1 er 'create' 

000025 USING W- 1 NVENTORY-MASTER-CORRECT I ON-v i e w. 

000026 EXIT METHOD. 

000027 END METHOD 'create'. 

000028 END CLASS-OBJECT. 
000029 

000030 IDENTIFICATION DIVISION. 

000031 OBJECT. 

000032 DATA DIVISION. 

000033********************************************************************* 
000034* INSTANCE VARIABLE 

000035********************************************************************* 

000036 WORKING-STORAGE SECTION. 

000037 01 T 1 - 1 NVENTORY-MASTER-CORRECT I ON-RECORD . TV- (; 



000038 


05 


Tl 


-PROCESSING-CATEGORY 


PIC X(l) 


PROPERTY 


NO 


SET. 


000039 


05 


Tl 


-PRODUCT-CODE 


PIC X(6) 


PROPERTY 


NO 


SET. 


000040 


05 


Tl 


-PRODUCT-NAME 


PIC X(30) 


PROPERTY NO SET. 


000041 


05 


Tl 


-CURRENT- INVENTORY 


PIC 9(7) 


PROPERTY 


NO 


SET. 


000042 


05 


Tl 


-ALLOCATED-STOCK 


PIC 9(7) 


PROPERTY 


NO 


SET. 


000043 


05 


Tl 


-PO I NT-OF-ORDER I NG 


PIC 9(7) 


PROPERTY 


NO 


SET. 


000044 


05 


Tl 


-BASE- INVENTORY 


PIC 9(7) 


PROPERTY 


NO 


SET. 


000045 


05 


Tl 


-SUPPLYER-CODE 


PIC X(5) 


PROPERTY 


NO 


SET. 


000046 01 


END 


FLAG PIC X(l) PROPERTY NO 


SET. 









000006 



CLASS CBL-BASE. 
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(7. VIEW CLASS — CONTINUED) 
000047 PROCEDURE DIVISION. 

000048********************************************************************* 
000049* INSTANCE METHOD 

000050********************************************************************* 

000051 IDENTIFICATION DIVISION. 

000052 METHOD-ID. ' displayScreen' . 

000053********************************************************************* 

000054 DATA DIVISION. 

000055 SCREEN SECTION. 

000056 01 INVENTORY MASTER DETAIL. 
05 LINE 3 COLUMN 10 VALUE 'PROCESSING CATEGORY : _\ 

COLUMN 24 PIC X(l) TO Tl -PROCESSING-CATEGORY. 

COLUMN 10 VALUE 'PRODUCT CODE : \ 

COLUMN 24 PIC X(6) TO Tl -PRODUCT-CODE. 
COLUMN 10 VALUE 'PRODUCT NAME : 



000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



COLUMN 24 PIC X(30) TO Tl -PRODUCT-NAME. 
COLUMN 10 VALUE 'CURRENT INVENTORY : 



6 COLUMN 24 PIC 9(7) TO Tl -CURRENT- INVENTORY. 

7 COLUMN 10 VALUE 'ALLOCATED STOCK : 

7 COLUMN 24 PIC 9(7) TO T 1 -ALLOCATED-STOCK. 

8 COLUMN 10 VALUE 'POINT OF ORDERING : _ 

8 COLUMN 24 PIC 9(7) TO Tl-POINT-OF-ORDERING. 

9 COLUMN 10 VALUE 'BASE INVENTORY : \ 

9 COLUMN 24 PIC 9(7) TO Tl -BASE- INVENTORY. 

10 COLUMN 10 VALUE ' SUPPLYER CODE: '. 



10 COLUMN 24 PIC X (5) TO T1-SUPPLYER-C0DE. 
LINE 11 COLUMN 40 VALUE 'END : _' . 

LINE 11 COLUMN 24 PIC X(l) TO END-FLAG. 

000075 PROCEDURE DIVISION. 

000076 DISPLAY INVENTORY-MASTER-FILE-DETAIL. 

000077 ACCEPT INVENTORY-MASTER-FILE-DETAIL. 

000078 EXIT METHOD. 

000079 END METHOD. 'displayScreen'. 

000080 END OBJECT. 

000081 END CLASS I NVENTORY-MASTER-CORRECT I ON-v i ew. 



(2-3) 



r 



(2-1) 
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8. CONTROLLER CLASS (FINAL PROGRAM) 
FILE NAME : ZMCN.CBL 

000001 IDENTIFICATION DIVISION. t«_ /o_i) 

000002 CLASS-ID. INVENTORY-MASTER- CORRECT I ON-c on t r o 1 1 e r INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 1 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. T , 9 _ n 

000007 CLASS I NVENTORY-MASTER-CORRECT I ON-v i ew IS ' ZMVT . |*~ u l) 

000008 CLASS I NVENTORY-MASTER-CORRECT I ON-mode 1 IS ' ZMMD' . 
000009 

000010 IDENTIFICATION DIVISION. 

0000 11 CLASS-OBJECT. 

000012 PROCEDURE DIVISION. 

000013mmwmmm**mmm***m**#m**m****m****m********* 
000014* CLASS METHOD 

000015****************************************************************** 

000016 IDENTIFICATION DIVISION. 

000017 METHOD- ID. 'create'. 

000018********************************************************************* 

000019 DATA DIVISION. 

000020 LINKAGE SECTION. 

000021 01 L- 1 NVENTORY-MASTER-CORRECT I ON- v i ew OBJECT REFERENCE INVENTORY-MASTER-CORRECT I ON-view ONLY. 

000022 WORKING-STORAGE SECTION. 

000023 01 W- 1 NVENTORY-MASTER-CORRECT I ON-c on trol ler OBJECT REFERENCE SELF. 

000024 PROCEDURE DIVISION USING L- 1 NVENTORY-MASTER-CORRECT I ON-view. 

000025 INVOKE SELF ' CBL-NEW' 

000026 RETURNING W- 1 NVENTORY-MASTER-CORRECT I ON-c on trol ler. 

000027 SET 0- 1 NVENTORY-MASTER-CORRECT I ON-v i ew OF W- 1 NVENTORY-MASTER-CORRECT I ON- controller 

000028 TO L- 1 NVENTORY-MASTER-CORRECT I ON-v i ew. 

000029 INVOKE I NVENTORY-MASTER-CORRECT I ON-mod el 'create' 

000030 USING 0- 1 NVENTORY-MASTER-CORRECT I ON-view OF W- 1 NVENTORY-MASTER-CORRECT I ON-c on t rol 1 er 

000031 RETURNING 0- 1 NVENTORY-MASTER-CORRECT I ON-mod el OF W- 1 NVENTORY-MASTER-CORRECT I ON-c on t r o 1 1 e r . 

000032 INVOKE W- 1 NVENTORY-MASTER-CORRECT I ON-c on t r o 1 1 e r 'uiMain'. 

000033 EXIT METHOD. 

000034 END METHOD 'create'. 

000035 END CLASS-OBJECT. 
000036 

000037 IDENTIFICATION DIVISION. 

000038 OBJECT. 

000039 DATA DIVISION. 

000040********************************************************************* 
000041* INSTANCE VARIABLE 

000042********************************************************************* 

000043 WORKING-STORAGE SECTION. 

000044 01 0- 1 NVENTORY-MASTER-CORRECT I ON-c on t r o 1 1 e r . 

000045 05 25MINUS I NVENTORY-MASTER-CORRECT I ON-view ONLY PROPERTY. 

000046 05 0- 1 NVENTORY-MASTER-CORRECT I ON-mode I ONLY PROPERTY. 
000047 

000048 PROCEDURE DIVISION. 

000049********************************************************************* 
000050* INSTANCE/METHOD 

000051********************************************************************* 



000052 IDENTIFICATION DIVISION. 

000053 METHOD-ID. 'uiMain'. 

000054********************************************************************* 

000055 PROCEDURE DIVISION. 

000056 PERFORM UNTIL (END FLAG OF 0- 1 NVENTORY-MASTER-CORRECT I ON-view = ' 1 ) 

000057 INYOKE 0- 1 NVENTORY-MASTER-CORRECT I ON-view ' displayScreen 

000058 INVOKE 0- 1 NVENTORY-MASTER-CORRECT I ON-mode I ' changeModel' 

000059 END-PERFORM. 

000060 EXIT METHOD. 

000061 END METHOD 'uiMain'. 

000062 END OBJECT. 

000063 END CLASS INVENTORY-MASTER-CORRECT ION-c on t roller 



(2-4) 
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9. MODEL CLASS (FINAL PROGRAM) 

FILE NAME : ZMMD.CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. I NVENTORY-MASTER-CORRECT I ON-mode 1 INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 

000007 CLASS INVENTORY-MASTER-CORRECT I ON-view IS * ZMVI' . 
CLASS I NVENTORY-MASTER-CORRECT I ON-s es s i on IS ' ZMSS*. 



J«- (2-1) 



r 



(2-1) 



OBJECT REFERENCE 



000008 
000009 

000010 IDENTIFICATION DIVISION. 

000011 CLASS-OBJECT. 

000012 PROCEDURE DIVISION. 

000013********************************************************************* 
000014* CLASS METHOD 

000015********************************************************************* 

000016 IDENTIFICATION DIVISION. 

000017 METHOD- ID. ' create'. 

000018********************************************************************* 

000019 DATA DIVISION. 

000020 LINKAGE SECTION. 

000021 01 L- I NVENTORY-MASTER-CORRECT 1 ON-view 
I NVENTORY-MASTER-CORRECT I ON-view ONLY. . 

000022 01 L- I NVENTORY-MASTER-CORRECT I ON-mode 1 OBJECT REFERENCE SELF. 

000023 WORKING-STORAGE SECTION. 

000024 01 W- I NVENTORY-MASTER-CORRECT I ON-mode 1 OBJECT REFERENCE SELF. 
000025 

000026 PROCEDURE DIVISION USING L- I NVENTORY-MASTER-CORRECT I ON-view 

000027 RETURNING L-I NVENTORY-MASTER-CORRECT I ON-mode 1 . 

000028 INVOKE SELF ' CBL-NEW* 

000029 RETURNING W- 1 NVENTORY-MASTER-CORRECT I ON-mo d e 1 . 

000030 SET 0-1 NVENTORY-MASTER-CORRECT I ON-view OF W- 1 NYENTORY-MASTER-CORRECT I ON-mod e 1 

000031 TO L- 1 NVENTORY-MASTER-CORRECT I ON-v i ew. 

000032 SET L- 1 NVENTORY-MASTER-CORRECT I ON-mode 1 TO W- 1 NVENTORY-MASTER-CORRECT I ON-mode 1 . 

000033 EXIT METHOD. 

000034 END METHOD 'create*. 

000035 END CLASS-OBJECT. 
000036 

000037 IDENTIFICATION DIVISION. 

000038 OBJECT. 

000039 DATA DIVISION. 

000040********************************************************************* 
000041* INSTANCE VARIABLE 

000042********************************************************************* 

000043 WORKING-STORAGE SECTION. 



000044 01 T 1 - I NVENTORY-MASTER-CORRECT I ON- RECORD. 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 

000053 01 0- I NVENTORY-MASTER-CORRECT I ON-view OBJECT REFERENCE 
I NVENTORY-MASTER-CORRECT I ON-v i ew ONLY . 

000054 01 0- 1 NVENTORY-MASTER-CORRECT I ON-s e s s i on OBJECT REFERENCE 
I NVENTORY-MASTER-CORRECT I ON-s e s s i on ONLY . 



05 


Tl 


-PROCESSING-CATEGORY 


PIC X(l). 


05 


Tl 


-PRODUCT-CODE 


PIC X(6). 


05 


Tl 


-PRODUCT-NAME 


PIC X(30) 


05 


Tl 


-CURRENT- INVENTORY 


PIC 9(7). 


05 


Tl 


-ALLOCATED-STOCK 


PIC 9(7). 


05 


Tl- 


-PO I NT-OF-ORDER I NG 


PIC 9(7). 


05 


Tl 


-BASE- INVENTORY 


PIC 9(7). 


05 


Tl 


-SUPPLYER-CODE 


PIC X(5). 
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(9. MODEL CLASS —CONTINUED) 
000056 PROCEDURE DIVISION. 

000057********************************************************************* 
000058* INSTANCE/METHOD 

000059********************************************************************* 

000060 IDENTIFICATION DIVISION. 

000061 METHOD-ID. ' changeModel' . 

000062********************************************************************* 

000063 PROCEDURE DIVISION. 

000064 MAIN PROCESS. 

000065 PERFORM INVENTORY-MASTER-INPUT. 

000066 PERFORM TRANSFORMATION-CONTROL. 

000067 EXIT METHOD. 

000068********************************************************** 

000069 TRANSFORMATION CONTROL. 

000070 PERFORM TRANSFORMATION. 

000071 PERFORM INVENTORY-MASTER- INPUT. 

000072********************************************************** 

000073 INVENTORY MASTER INPUT. 

000074 INVOKE SELF ' moveFromView' . 

000075********************************************************** 
000076 TRANSFORMATION. 
000077 
000078 
000079 
000080 
000081 



r 

r 

r 



IF (T 1 -CURRENT- 1 NVENTORY IS NUMERIC) AND 
(T1-ALL0CATED-STOCK IS NUMERIC) 
THEN 

PERFORM CHECKED- 1 NVENTORY-MASTER-CORRECT I ON-OUTPUT 

END- IF. 

000082********************************************************** 

000083 CHECKED I NVENTORY-MASTER-CORRECT I ON-OUTPUT. 

000084 INVOKE I NVENTORY-MASTER-CORRECT I ON-s ess ion 'create' 

000085 RETURNING O-INVENTORY-MASTER-CORRECTION-sess ion. 

000086 INVOKE 0- 1 NVENTORY-MASTER-CORRECT I ON-s ess ion ' checkTransaction 

000087 USING Tl-INVENTORY-MASTER-CORRECT ION-RECORD. 

000088 END METHOD ' changeMode V . 
000089 

000090********************************************************************* 

000091 IDENTIFICATION DIVISION. 

000092 METHOD- ID. , InoveFromView , . 

000093********************************************************************* 
000094 PROCEDURE DIVISION. 



(2-5) 

(2-6) 

(2-7) 
- (2-8) 



(2-9) 



000095 MOVE Tl -PROCESSING-CATEGORY 

000096 MOVE Tl -PRODUCT-CODE 

000097 MOVE Tl -PRODUCT-NAME 

000098 MOVE Tl -CURRENT- I NVENTORY 

000099 MOVE T 1 -ALLOCATED-STOCK 

000100 MOVE Tl-POINT-OF-ORDERING 

000101 MOVE T 1 -BASE- I NVENTORY 

000102 MOVE Tl-SUPPLYER-CODE 

000103 EXIT METHOD. 

000104 END METHOD 'moveFromView' . 

000105 END OBJECT. 

000106 END CLASS I NVENTORY-MASTER-CORRECT I ON-mod e 1 



OF 0- 1 NVENTORY-MASTER-CORRECT ION-view 
OF 0- 1 NVENTORY-MASTER-CORRECT I ON-v i ew 
OF 0- 1 NVENTORY-MASTER-CORRECT I ON-v i ew 
OF 0- 1 NVENTORY-MASTER-CORRECT I ON-v i ew 
OF O-I NVENTORY-MASTER-CORRECT ION-v i ew 
OF 0- 1 NVENTORY-MASTER-CORRECT I ON-v i ew 
OF O-I NVENTORY-MASTER-CORRECT ION-v iew 
OF 0- 1 NVENTORY-MASTER-CORRECT I ON-v i ew 



TO Tl-PROCESSING-CATEGORY. 
TO Tl-PRODUCT-CODE. 
TO Tl-PRODUCT-NAME. 
TO T 1 -CURRENT- I NVENTORY. 
TO T I -ALLOCATED-STOCK. 
TO Tl-POINT-OF-ORDERING. 
TO T 1 -BASE- I NVENTORY. 
TO Tl-SUPPLYER-CODE. 



r 



(2-1) 
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10. SESSION CLASS (FINAL PROGRAM) 
FILE NAME : ZMSS.CBL 

000001 IDENTIFICATION DIVISION. T , 0 _, n x 

000002 CLASS-ID. INVENTORY-MASTER-CORRECTION-session INHERITS CBL-BASE. P~ U 

000003 ENVIRONMENT DIVISION. ± 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. T <_ /o_ 1fn 

000007 CLASS INVENTORY-MASTER-CORRECTION-ent i ty IS ' ZMEN' . I y6 iy " 

000009 IDENTIFICATION DIVISION. 

000010 CLASS-OBJECT. 

000011 PROCEDURE DIVISION. 

000012********************************************************************* 
000013* CLASS METHOD 

000014********************************************************************* 

000015 IDENTIFICATION DIVISION. 

000016 METHOD- ID. 'create'. 

000017 DATA DIVISION. 

000018 LINKAGE SECTION. 

000019 01 L-INVENTORY-MASTER-CORRECTION-sess i on OBJECT REFERENCE SELF. 

000020 WORKING-STORAGE SECTION. 

000021 01 W-INVENTORY-MASTER-CORRECTION-sess i on OBJECT REFERENCE SELF. 

000022 PROCEDURE DIVISION RETURNING L- 1 NYENTORY-MASTER-CORRECT I ON-s e s s i on. 

000023 INVOKE SELF ' CBL-NEW' 

000024 RETURNING W- 1 NVENTORY-MASTER-CORRECT I ON-s e s s i on . 

000025 INVOKE INVENTORY-MASTER-CORRECTION-ent i ty 'create' 

000026 RETURNING 0- 1 NVENTORY-MASTER-CORRECT I ON-ent i ty OF 
W- 1 NVENTORY-MASTER-CORRECT I ON-s es s ion. 

000027 SET L- 1 NVENTORY-MASTER-CORRECT I ON-s es s i on TO 
W-I NVENTORY-MASTER-CORRECT I ON-s es s ion. 

000028 EXIT METHOD. 

000029 END METHOD 'create'. 

000030 END CLASS-OBJECT. 
000031 

000032 IDENTIFICATION DIVISION. 

000033 OBJECT. 

000034 DATA DIVISION. 

000035********************************************************************* 
000036* INSTANCE VARIABLE 

000037********************************************************************* 

000038 WORKING-STORAGE SECTION. 

000039 01 O-INVENTORY-MASTER-CORRECTION-ent i ty OBJECT REFERENCE 
INVENTORY-MASTER-CORRECTION-entity ONLY. 

000040 
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((10. SESSION CLASS -CONTINUED) 
000041 PROCEDURE DIVISION. 

000042********************************************************************* 

000043* INSTANCE/METHOD 

000044********************************************************************* 

000045 IDENTIFICATION DIVISION. 

000046 METHOD-ID. ' checkTransaction' . 

000047 DATA DIVISION. 

000048 LINKAGE SECTION. 

000049 01 T 1 - I NVENTORY-MASTER-CORRECT I ON-RECORD. 



000050 


05 


Tl-PROCESSING-CATEGORY 


PIC 


X(l). 


000051 




88 Tl-ADD VALUE ' 1'. 






000052 




88 Tl-UPDATE VALUE ' 2' 






000053 




88 Tl-DELETE VALUE ' 9" 






000054 


05 


Tl-PRODUCT-CODE 


PIC 


X(6). 


000055 


05 


Tl -PRODUCT-NAME 


PIC 


X(30). 


000056 


05 


T 1 -CURRENT- I NVENTORY 


PIC 


9(7). 


000057 


05 


T 1 -ALLOCATED-STOCK 


PIC 


9(7). 


000058 


05 


T 1 -PO I NT-OF-ORDER I NG 


PIC 


9(7). 


000059 


05 


T 1 -BASE- I NVENTORY 


PIC 


9(7). 


000060 


05 


Tl-SUPPLYER-CODE 


PIC 


X(5). 


000061 WORKING-STORAGE SECTION. 






000062 01 


W-F I LE-ERROR-FLAG 


PIC 


X(l). 


000063 


88 


RECORD-EXIST VALUE '1*. 






000064 


88 


RECORD-NOT-EXIST VALUE 


0'. 





(2-13) 



000065 t« 

000066 PROCEDURE DIVISION USING Tl- I NVENTORY-MASTER-CORRECT I ON-RECORD J_ 



(2-13) 



000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 



' recordExists' 



INVOKE 0- INVENTORY-MASTER-CORRECT I ON-ent i ty 

RETURNING W-F I LE-ERROR-FLAG. 
EVALUATE Tl-PROCESSINC-CATEGORY 
WHEN Tl-ADD 

IF RECORD-NOT-EXIST 
THEN 

INVOKE 0- 1 NVENTORY-MASTER-CORRECT I ON-enl i ty ' updateRecord' 
US I NG T 1 - 1 NVENTORY-MASTER-CORRECT I ON-RECORD 

END-IF 

WHEN Tl-UPDATE Tl-DELETE 
IF RECORD-EXIST 
THEN 

INVOKE 0- 1 NVENTORY-MASTER-CORRECT I ON-en t i ty ' updateRecord' 
US I NG Tl - INVENTORY-MASTER-CORRECT I ON-RECORD 

END-IF 
END-EVALUATE. 
EXIT METHOD. 

000084 END METHOD 'checkTransaction' . 

000085 END OBJECT. _ , 

000086 END CLASS INVENTORY-MASTER-CORRECTION-session. T - * - (2-10) 



Replacement Sheet 



51/69 

Fig. 51 



r 
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11. ENTITY CLASS (FINAL PROGRAM) 

FILE NAME : ZMEN. CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. INVENTORY-MASTER-CORRECTION-ent i ty INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 
000007 

000008 IDENTIFICATION DIVISION. 

000009 CLASS-OBJECT. 

000010 PROCEDURE DIVISION. 

oooon********************************************************************* 

000012* CLASS METHOD 

000013********************************************************************* 

000014 IDENTIFICATION DIVISION. 

000015 METHOD-ID. "create*. 

000016 DATA DIVISION. 

000017 LINKAGE SECTION. 

000018 01 L-INVENTORY-MASTER-CORRECTION-enti ty OBJECT REFERENCE SELF. 

000019 WORKING-STORAGE SECTION. 

000020 01 W-INVENTORY-MASTER-CORRECTION-enti ty OBJECT REFERENCE SELF. 

000021 PROCEDURE DIVISION RETURNING L-INVENTORY-MASTER-CORRECTION-enti ty. 

000022 INVOKE SELF ' CBL-NEW' 

000023 RETURNING W-INVENTORY-MASTER-CORRECTION-ent i ty. 

000024 SET L-INVENTORY-MASTER-CORRECTION-ent i ty TO W-INVENTORY-MASTER-CORRECTION-ent i ty. 

000025 EXIT METHOD. 

000026 END METHOD ' create' . 

000027 END CLASS-OBJECT. 
000028 

000029 IDENTIFICATION DIVISION. 

000030 OBJECT. 

000031 ENVIRONMENT DIVISION. 

000032 INPUT-OUTPUT SECTION. 

000033 FILE-CONTROL. 

000034 SELECT Ml-INVENTORY-MASTER-FILE T<- (2-11) 

000035 ASSIGN TO "SYS030-DA-DK-r 

000036 ORGANIZATION INDEXED 

000037 ACCESS RANDOM 

000038 RECORD KEY MI-PRODUCT-CODE. 

000039 DATA DIVISION. 

000040********************************************************************* 
000041* INSTANCE VARIABLE 

000042********************************************************************* 
000043 FILE SECTION. 



000044 FD 


Ml- 


000045 01 


Ml- 


000046 


05 


000047 


05 


000048 


05 


000049 


05 


000050 


05 


000051 


05 


000052 


05 


000053 





INVENTORY-MASTER-RECORD. 

Ml -PRODUCT-CODE PIC X(6). 

MI-PRODUCT-NAME PIC X(30). 

MI-CURRENT-INVENTORY PIC S9(7). 

Ml-ALLOCATED-STOCK PIC S9(7). 

Ml-POINT-OF-ORDERING PIC S9(7). 

MI-BASE-INVENTORY PIC S9(7). 

Ml-SUPPLYER-CODE PIC X(5). 



(2-12) 
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Fig.52 

(11. ENTITY CLASS — CONTINUED (0) 
000054 PROCEDURE DIVISION. 

000055******** ****************************** ******************************* 
000056* INSTANCE METHOD 

000057********************************************************************* 

000058 IDENTIFICATION DIVISION. 

000059 METHOD-ID. ' recordEx i s t s ' 

000060********************************************************************* 

000061 DATA DIVISION. 

000062 LINKAGE SECTION. 

000063 01 L-PRODUCT-CODE PIC X(6). 

000064 01 L-F ILE-ERROR-FLAG PIC X(l). 
88 RECORD-EXIST VALUE ' W 
88 RECORD-NOT-EXIST VALUE * 0' . 

000067 PROCEDURE DIVISION USING L-PRODUCT-CODE 

000068 RETURNING L-FI LE-ERROR-FLAG 

000069 MAIN PROCESS. 
OPEN INPUT Ml-INVENTORY-MASTER-FILE 
MOVE L-PRODUCT-CODE TO MI-PRODUCT-CODE. 
READ Ml-INVENTORY-MASTER-FILE 

INVALID 

SET RECORD-NOT-EXIST TO TRUE 
NOT INVALID 

SET RECORD-EXIST TO TRUE 

END-READ. 
EXIT METHOD. 
000079 END METHOD * reco rdEx i s t s * . 
000080 

000081********************************************************************* 

000082 IDENTIFICATION DIVISION. 

000083 METHOD-ID. ' upda teRecord' . 

000084********************************************************************* 

000085 DATA DIVISION. 

000086 LINKAGE SECTION. 

000087 01 Tl- INVENTORY-MASTER-CORRECTION-RECORD. 



000065 
000066 



000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 



000088 


05 


Tl 


-PROCESSING-CATEGORY 


PIC X 


000089 




88 


Tl-ADD VALUE 


* r . 




000090 




88 


Tl-UPDATE VALUE 


• r . 




000091 




88 


Tl -DELETE VALUE 


'9' . 




000092 


05 


Tl 


-PRODUCT-CODE 


PIC 


X(6). 


000093 


05 


Tl 


-PRODUCT-NAME 


PIC 


X(30) . 


000094 


05 


Tl 


-CURRENT-INVENTORY 


PIC 


9(7). 


000095 


05 


Tl 


-ALLOCATED-STOCK 


PIC 


9(7). 


000096 


05 


Tl 


-POINT-OF-ORDERING 


PIC 


9(7). 


000097 


05 


Tl 


-BASE-INVENTORY 


PIC 


9(7). 


000098 


05 


Tl 


-SUPPLYER-CODE 


PIC 


X(5). 



000099 

000100 WORKING-STORAGE SECTION. 

000101 01 WORKING AREA. 

000102 05 W-TRANSACT I ON-KEY PIC X(6) VALUE LOW-VALUE. 

000103 05 W-MASTER-KEY PIC X(6). 

000104 01 FLAG. 

000105 05 FILE-END-FLAG 1 PIC X VALUE *0\ 

000106 05 FILE-END-FLAG 2 PIC X VALUE ' 0' . 

000107 05 PROCESS-END-FLAG PIC X VALUE * 0* . 
000108 

000109 PROCEDURE DIVISION USING Tl- INVENTORY-MASTER-CORRECT I ON-RECORD. 

000110 MAIN PROCESS. 

000111 OPEN 1-0 Ml-INVENTORY-MASTER-FILE 

000112 PERFORM INVENTORY-MASTER-CORRECT I ON- INPUT. 

000113 PERFORM OLD- INVENTORY-MASTER- INPUT. 

000114 PERFORM UPDATE-CONTROL. 

000115 CLOSE Ml-INVENTORY-MASTER-FILE 

000116 EXIT METHOD. 

0001 17********************************************************************* 
000118 UPDATE CONTROL. 

0001 19 IF (W-TRANSACT I ON-KEY = W-MASTER-KEY) 

000120 THEN 

000121 PERFORM MATCHING 

000122 ELSE 

000123 PERFORM TRANSACTION-PROCESS 



(2-14) 
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(11. ENTITY CLASS — CONTINUED (2)) 

000 1 25********** ************************************ ******************** 

000126 MATCHING. 

000127 IF (W-TRANSACT ION-KEY = HIGH-VALUE) 

000128 THEN 

000129 MOVE ' 1' TO PROCESS-END-FLAG 

000130 ELSE 

000131 EVALUATE Tl -PROCESS I NG-CATEGORY 

000132 WHEN Tl -UPDATE 

000133 PERFORM UPDATE 

000134 PERFORM NEW-NVENTORY-MASTER-OUTPUT 

000135 WHEN Tl -DELETE 

000136 PERFORM DELETE-PROCESS 

000137 END-EVALUATE 

000138 END- IF. 

000139****************************************************************** 

000140 TRANSACTION. 

000141 IF T 1 -ADD 

000142 THEN 

000143 PERFORM ADD 

000144 PERFORM ADD NEW-NVENTORY-MASTER-OUTPUT. 

000145 END- IF. 

000146****************************************************************** 

000147 UPDATE. 

000148 MOVE Tl -PRODUCT-NAME 

000149 MOVE Tl -CURRENT- INVENTORY 

000150 MOVE Tl-ALLOCATED-STOCK 

000151 MOVE Tl-POINT-OF-ORDERING 

000152 MOVE Tl -BASE- INVENTORY 

000153 MOVE Tl-SUPPLYER-CODE 
000154****************************************************************** 

000155 ADD. 

000156 MOVE T I -PRODUCT-CODE 

000157 MOVE Tl -PRODUCT-NAME 

000158 MOVE Tl -CURRENT- INVENTORY 

000159 MOVE Tl-ALLOCATED-STOCK 

000160 MOVE Tl-POINT-OF-ORDERING 

000161 MOVE Tl -BASE- INVENTORY 

000162 MOVE Tl-SUPPLYER-CODE 
000163****************************************************************** 

000 1 64 ADD-NEW-NVENTORY-MASTER-OUTPUT. 

000165 WRITE M 1 — I NVENTORY-MASTER-RECORD 

000166 INVALID MOVE ' l' TO PROCESS-END-FLAG. 

000167****************************************************************** 

000168 NEW-NVENTORY-MASTER-OUTPUT. 

000169 REWRITE Ml -I NVENTORY-MASTER-RECORD 

000170 INVALID MOVE ' f TO PROCESS-END-FLAG. 

000171****************************************************************** 

000172 DELETE. 

000173 DELETE Ml -I NVENTORY-MASTER-RECORD 

000174 INVALID MOVE ' f TO PROCESS-END-FLAG. 

000175****************************************************************** 

000176 I NVENTORY-MASTER-CORRECT I ON- INPUT. 

000177 MOVE Tl -PRODUCT-CODE 

000178 TO W-TRANSACT I ON-KEY Ml -PRODUCT-CODE 

000179****************************************************************** 
000180 OLD- I NVENTORY-MASTER- I NPUT. 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 



- (2-14 
CONTINUED) 



TO Ml -PRODUCT-NAME. 
TO MI-CURRENT-INVENTORY. 
TO M 1 -ALLOCATED-STOCK. 
TO Ml-POINT-OF-ORDERING. 
TO Ml -BASE- INVENTORY. 
TO Ml-SUPPLYER-CODE. 



TO Ml -PRODUCT-CODE. 
TO Ml -PRODUCT-NAME. 
TO Ml -CURRENT- INVENTORY. 
TO Ml -ALLOCATED-STOCK. 
TO Ml-POINT-OF-ORDERING. 
TO Ml -BASE- INVENTORY. 
TO Ml-SUPPLYER-CODE. 



READ Ml -INVENTORY-MASTER-FILE 

INVALID MOVE ' f TO FILE-END-FLAG 2 . 
IF (FILE-END-FLAG 2 = ' 1') 
THEN 

MOVE HIGH-VALUE TO W-MASTER-KEY 

ELSE 

MOVE Ml -PRODUCT-CODE TO W-MASTER-KEY 

END- IF. 

000189 END METHOD ' updateRecord* . 

000190 END OBJECT. T 

000191 END CLASS I NVENTORY-MASTER-CORRECT ION-en t ity. J*~ < 2 ~ 
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